00100		TITLE PLOT
00200		INTERNAL PLOT
00300		EXTERNAL FASTOU,FINFIL,EXIT,PUTFIL,OUTF
00400	
00500	LX:	0
00600	N:	BLOCK =512
00700	PLOT:	0		;SUBROUTINE PLOT(I,J,K)
00800		SETO  4,		;COMMON /OUTF/JJ
00900		CAMN	4,OUTF		;DIMENSION N(148)
01000		JRST	PL4		;IF(JJ.EQ.-1)GO TO 4
01100		MOVNM  4,LX		;L=1
01200		MOVEI	4,=127		;N(1)=127
01300		MOVEM	4,N
01400		MOVE	4,[ASCIZ/" "/]		;IF(JJ.EQ.' ')JJ='PLT'
01500		CAME	4,OUTF
01600		JRST	PLB
01700		MOVE	4,[ASCIZ/"PLT"/]
01800		MOVEM	4,OUTF
01900	PLB:	JSA	16,PUTFIL	;CALL PUTFIL(JJ)
02000		JUMP	OUTF
02100		SETOM	OUTF		;JJ=-1
02200	PL4:	MOVE	5,@2(16)	;4	IF(K.EQ.99)GO TO 1
02300		CAIN	5,=99
02400		JRST	PL1
02500		AOS	7,LX		;L=L+1
02600		CAIL	7,=129
02700		JRST	[	CAIL 7,=257
02800				JRST TOP
02900				CAIE 7,=129
03000				JRST NOWD
03100			  WWD:	MOVEI 4,=127
03200				MOVEM 4,N-1(7)		;N(L)=127
03300				AOS LX
03400				JRST NOWD
03500			  TOP:	CAIL 7,=385
03600				JRST TOP2
03700			  	CAIE 7,=257
03800				JRST NOWD
03900				JRST WWD
04000			  TOP2:	CAIN 7,=385
04100				JRST WWD
04200				JRST NOWD]
04300				
04400	NOWD:	MOVEI	7,N
04500		ADD	7,LX		;CALL PAC(N(L),I)[SEE MSFAI.FAI]
04600		HRRZ	4,2(16)
04700		HRR	5,@4
04800		LSHC	5,-10
04900		HRRZ	4,1(16)
05000		HRR	5,@4
05100		LSHC	5,-16
05200		HRRZ	4,(16)
05300		HRR	5,@4
05400		LSHC	5,-16
05500		MOVEM	6,-1(7)
05600	
05700		MOVE	7,LX
05800		CAIGE	7,=512	;3	IF(L.LT.512)RETURN
05900		JRA	16,3(16)
06000		JSA	16,FASTOU	;2	CALL FASTOU(N,512)
06100		JUMP	N
06200		JUMP	[=512]
06300		MOVEI	7,1		;L=1
06400		MOVEM	7,LX
06500		JRA	16,3(16)	;RETURN
06600	PL1:	MOVE 4,LX
06700		IDIVI 4,=128		;JJJ=L/128
06800		IMULI 4,=128		;JJJJ=JJJ*128
06900		MOVE 7,4
07000		MOVEM 5,N(7)		;FOUND LAST WDCNT.
07100		ADDI 4,=128		; END OF NEXT LOOP
07200		MOVE 5,LX
07300		MOVE	7,N-1(5)	;J=N(L)
07400		AOJ 5,			; (L=L+1)
07500	PL100:	MOVEM	7,N-1(5)	;DO 100 JJ=L,JXXX  (AC4)
07600					;100	N(JJ)=J
07700		CAMGE	5,4
07800		AOJA	5,PL100
07900		JSA	16,FASTOU	;CALL FASTOU(N,512)
08000		JUMP	N
08100		JUMP	4
08200		JSA	16,FINFIL	;CALL FINFIL
08300		SETZM	OUTF		;JJ=0
08400		JSA	16,EXIT		;CALL EXIT
08500	
08600		END